home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1425.dms / var1425.adf / AutoExec.Amos / AutoExec.amosSourceCode
AMOS Source Code  |  1994-05-06  |  3KB  |  125 lines
  1. Break Off 
  2. Proc _CREDIT
  3. Screen Open 0,640,512,16,HI-Laced
  4. Pen 0 : Ink 0 : Paper 0
  5. Cls 
  6. Curs Off : Flash Off : Hide On 
  7. Load Iff "1"
  8. Wait 600
  9. Load Iff "2"
  10. Wait 1000
  11. Load Iff "3"
  12. Wait 1100
  13. Screen Open 0,352,566,4096,Laced
  14. Pen 0 : Ink 0 : Paper 0
  15. Cls 
  16. Curs Off : Flash Off : Hide On 
  17. X=4 : Rem NUMBER OF SCREEN 
  18. Global X
  19. Load Iff "4"
  20. Do 
  21.    Wait 500 : X=X+1 : Proc _LOADERS
  22.    
  23. Loop 
  24. Procedure _LOADERS
  25.    Do 
  26.       If X=4 Then X=16
  27.       If X=17 Then Dir$="slideshow1:" : Run "autoexec.amos"
  28.       If X=5 Then Load Iff "5" : Pop Proc
  29.       If X=6 Then Load Iff "6" : Pop Proc
  30.       If X=7 Then Load Iff "7" : Pop Proc
  31.       If X=8 Then Dir$="slideshow2:" : Load Iff "9" : Pop Proc
  32.       If X=9 Then Load Iff "10" : Pop Proc
  33.       If X=10 Then Load Iff "11" : Pop Proc
  34.       If X=11 Then Load Iff "12" : Pop Proc
  35.       If X=12 Then Load Iff "13" : Pop Proc
  36.       If X=13 Then Load Iff "14" : Pop Proc
  37.       If X=14 Then Load Iff "15" : Pop Proc
  38.       If X=15 Then Load Iff "16" : Pop Proc
  39.       If X=16 Then Dir$="slideshow1:" : Run "autoexec.amos"
  40.       
  41.    Loop 
  42. End Proc
  43. Procedure _CREDIT
  44.    Screen Open 0,640,290,2,Hires : Curs Off : Hide 
  45.    Screen Display 0,,28,, : Palette $0,$FFF
  46.    _CREDIT_SCR[0,8,1,1,1]
  47.    Screen Close 0
  48. End Proc
  49. Procedure _CREDIT_SCR[_CRSNO,_CRSFS,_CRSSPD,_CRSSTEP,_CRSDAT]
  50.    Screen _CRSNO
  51.    Def Scroll 1,0,0 To Screen Width,Screen Height,0,-_CRSSTEP
  52.    Restore _CRSDAT+0
  53.    Do 
  54.       Read _CRSTXT$
  55.       If _CRSTXT$="*end*"
  56.          For _CRSLOP=1 To Screen Height/_CRSSTEP
  57.             Wait _CRSSPD
  58.             Scroll 1
  59.          Next _CRSLOP
  60.          Exit 
  61.       End If 
  62.       If _CRSTXT$<>"*end*"
  63.          _CRSL=Text Length(_CRSTXT$)
  64.          Text Screen Width/2-_CRSL/2,Screen Height-Text Base,_CRSTXT$
  65.          For _CRSLOP=1 To(_CRSFS*2)/_CRSSTEP
  66.             Wait _CRSSPD
  67.             Scroll 1
  68.          Next _CRSLOP
  69.       End If 
  70.    Loop 
  71.    1 Data "THE IMAGINE VIDEO COLLECTION"
  72.    Data "  "
  73.    Data "  "
  74.    Data "  "
  75.    Data "BY CRAIG COLLINS"
  76.    Data "  "
  77.    Data "  "
  78.    Data "  "
  79.    Data "  "
  80.    Data "  "
  81.    Data "  "
  82.    Data "LOVED LAST STAND ON HOTH?"
  83.    Data "  "
  84.    Data "  "
  85.    Data "  "
  86.    Data "SPELLBOUND BY SPEED LIMIT?"
  87.    Data "  "
  88.    Data "  "
  89.    Data "  "
  90.    Data "AMAZED BY THE AD?"
  91.    Data "  "
  92.    Data "  "
  93.    Data "  "
  94.    Data "MESMERISED BY MEAN CD MACHINE?"
  95.    Data "  "
  96.    Data "  "
  97.    Data "  "
  98.    Data "DELIGHTED BY DOLPHIN DREAMS?"
  99.    Data "  "
  100.    Data "  "
  101.    Data "  "
  102.    Data "WELL YOU AINT SEEN NOTHIN YET"
  103.    Data "  "
  104.    Data "  "
  105.    Data "  "
  106.    Data "COMING SOON ON VIDEO,ALL HIS BEST WORK"
  107.    Data "  "
  108.    Data "  "
  109.    Data "PLUS OVER 150 MEG OF NEW ANIMS"
  110.    Data "  "
  111.    Data "  "
  112.    Data "DONT FORGET THESE NEW ANIMS WILL NOT BE AVAILABLE ON DISK"
  113.    Data "  "
  114.    Data "  "
  115.    Data "STAY TUNED FOR A PREVIEW"
  116.    Data "  "
  117.    Data "  "
  118.    Data "  "
  119.    Data "  "
  120.    Data "  "
  121.    Data "SLIDESHOW COMPILED BY DAVE CLARKE"
  122.    Data "*end*"
  123.    
  124.    
  125. End Proc[A$]